home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 03 (1989-03)(MicroSPARC)(Side A)[a].zip / Nibble Volume 10, No. 03 (1989-03)(MicroSPARC)(Side A)[a].po / RESTORE.S < prev    next >
Text File  |  1996-12-24  |  817b  |  30 lines
  1. ********************************
  2. *  RESTORE Source Code         *
  3. *  By Vern L. Mastel           *
  4. *  Copyright(c) 1989           *
  5. *  MicroSPARC, Inc.            *
  6. *  Concord, MA 01742           *
  7. *                              *
  8. *  Merlin Assembler            *
  9. ********************************
  10.  
  11.           org $0300
  12.  
  13.           jsr $dd7b      ; Evaluate argument
  14.           jsr $e752      ; Convert to integer
  15.                          ;  and store it in $50,51
  16.           jsr $d61a      ; Check for that line
  17.           bcc error      ; If not found, branch
  18.                          ;  to Applesoft err
  19. restore   lda $9b
  20.           sbc #$01
  21.           sta $7d        ; Put Address-1 of line
  22.           lda $9c        ;  into $7d,&e
  23.           sbc #0
  24.           sta $7e
  25.  
  26.           rts
  27.  
  28. error     ldx #$5a
  29.           jmp $d412
  30.